sub msxwaitvbl(tfrm as uinteger)
  dim tflp as uinteger
  for tflp=1 to tfrm
    asm
      halt
      end asm
    next
  end sub
